function [n2,ValueKeywords,nKeywords]=getKeyword(VecValue,n2)

TestTemp=0;
TestTemp2=0;
nKeywords=0;
ValueKeywords='';
ValueTemp=size(VecValue,1)-22;
ValueTemp2=ValueTemp-1;
while n2<=ValueTemp&&TestTemp==0
    VecValueTemp2=VecValue(n2:n2+21,1);
    if strcmp(char(VecValueTemp2'),'<Keyword MajorTopicYN=')==1
        while n2<=ValueTemp2&&strcmp(char(VecValue(n2,1)),'>')==0
            n2=n2+1;
        end
        n4=n2+1;
        while n2<=ValueTemp2&&TestTemp2==0
            VecValueTemp3=VecValue(n2:n2+9,1);
            if strcmp(char(VecValueTemp3'),'</Keyword>')==1
                n5=n2-1;
                TestTemp2=1;
                ValueKeywords=[ValueKeywords '/K_/' char(VecValue(n4:n5,1)') '/K_/'];
                nKeywords=nKeywords+1;
            else
                if strcmp(char(VecValue(n2:n2+13,1)'),'</KeywordList>')==1
                    n5=n2-1;
                    TestTemp2=1;
                    ValueKeywords=[ValueKeywords '/K_/' char(VecValue(n4:n5,1)') '/K_/'];
                    TestTemp=1;
                    n2=n2-1;
                end
            end
            n2=n2+1;
        end
        TestTemp2=0;
    else
        if strcmp(char(VecValue(n2:n2+13,1)'),'</KeywordList>')==1
            TestTemp=1;
            n2=n2-1;
        end
    end
    n2=n2+1;
end